﻿Public Class ELocalidad
    Private nombre As String
    Private cod_postal As String
    Private provincia As String
    Private idloc As Integer
    Public Sub New()
        nombre = ""
        cod_postal = ""
        provincia = ""
        idloc = 0
    End Sub


    Public Property cod_loc() As Integer
        Get
            Return idloc
        End Get
        Set(ByVal value As Integer)
            idloc = value
        End Set
    End Property
    Public Property nombreloc() As String
        Get
            Return nombre
        End Get
        Set(ByVal value As String)
            nombre = value
        End Set
    End Property
    Public Property codpostal() As String
        Get
            Return cod_postal
        End Get
        Set(ByVal value As String)
            cod_postal = value
        End Set
    End Property
    Public Property provin() As String
        Get
            Return provincia
        End Get
        Set(ByVal value As String)
            provincia = value
        End Set
    End Property

End Class